home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2006 February
/
PCWorld_2006-02_cd.bin
/
software
/
topware
/
pspad
/
pspad450inst_cz.exe
/
{app}
/
Context
/
QBasic.DEF
< prev
next >
Wrap
Text File
|
2005-01-14
|
6KB
|
186 lines
; PSPad clip definition file for QBasic
; author: Kamil HavlφΦek (hakam@centrum.cz) from XAGA
; please visit http://ftipy.wz.cz
; please visit http://files.unas.cz
; last revision 08. I 2005 19:14
; -----------------------------------------------------------------------------
; d∙le₧itΘ a ΦastΘ znaky
; -----------------------------------------------------------------------------
[# | k°φ₧ek]
#
["" | uvozovky]
"|"
[; | st°ednφk]
;----------------------------------
[ABS | absolutnφ hodnota Φφsla]
ABS(numeric-expression)
[ACCESS | specifikace otev°enφ souboru]
ACCESS {READ nebo WRITE nebo READ WRITE}
[CALL ABSOLUTE | volßnφ m-l procedury]
CALL ABSOLUTE ([argumentlist,] offset%)
[ASC | ASCII k≤d °et∞zce]
ASC(|stringexpression$)
[CHR$ | vracφ znak podle ASCII]
CHR$(|ascii-code%)
[SGN | zjistφ znamΘnko Φφsla]
SGN(|numeric-expression)
; goniometrickΘ funkce
[ATN | arkustangens Φφsla]
ATN(|numeric-expression)
[COS | kosinus ·hlu (v radißnech)]
COS(|angle)
[SIN | sinus ·hlu (v radißnech)]
SIN(|angle)
[TAN | tangens ·hlu (v radißnech)]
SIN(|angle)
;----
[BEEP | pφpnutφ speakeru]
BEEP
[PLAY | zahrßt noty]
PLAY |commandstring$
;----
[BSAVE | ulo₧it obsah pam∞ti do souboru]
BSAVE |filespec$, offset%, length&
[BLOAD | naΦφst soubor ulo₧en² pomocφ BLOAD]
BLOAD |filespec$[,offset%]
;---
[CALL | volßnφ procedury]
CALL |name [([argumentlist])]
;---
[CASE | CASE podmφnka-testovßnφ prom∞nnΘ]
{
SELECT CASE testexpression
CASE expressionlist1
[statementblock-1]
CASE expressionlist2
[statementblock-2]]...
CASE ELSE
[statementblock-n]]
END SELECT
}
[IF..THEN..ELSEIF..ELSE | IF podmφnka ·plnß]
IF |condition1 THEN
[statementblock-1]
ELSEIF condition2 THEN
[statementblock-2]]...
ELSE
[statementblock-n]]
END IF
[IF..THEN..ELSE | IF podmφnka 2 p°φpady]
IF |condition1 THEN
[statementblock-1]
ELSE
[statementblock-2]]
END IF
[IF..THEN | IF podmφnka ne·plnß]
IF |condition1 THEN [statementblock]
;--
[CDBL | p°evede Φφslo na double-precision hodnotu]
CDBL(|numeric-expression)
[CSNG | p°evede Φφslo na single-precision hodnotu]
CSNG(|numeric-expression)
[CINT | zaokrouhlφ Φφslo na INTEGER]
CINT(|numeric-expression)
[CLNG | zaokrouhlφ Φφslo na LONG INETEGER (4byte)]
CLNG(|numeric-expression)
[FIX | usekne Φßst za desetinnou Φßrkou]
FIX(numeric-expression)
[INT | vracφ nejv∞tÜφ Φφslo, kterΘ je menÜφ nebo rovno prom∞nnΘ]
INT(numeric-expression)
[CHAIN | p°edß °φzenφ jinΘmu programu v Basicu]
CHAIN filespec$
[RUN | spustφ program (znovu prßv∞ probφhajφcφ nebo jin²)]
RUN [{linenumber nebo file$}]
[SHELL | provede p°φkaz DOSu]
SHELL [commandstring$]
[CHDIR | zm∞na adresß°e (change directory)]
CHDIR pathname$
[MKDIR | vytvo° adresß° Φi podadresß° (make directory)]
MKDIR pathname$
[RMDIR | sma₧ adresß° Φi podadresß° (remove directory)]
RMDIR pathname$
[FILES | zobraz obsah adresß°e]
FILES [filespec$]
[SCREEN | nastav m≤d a jinΘ vlastnosti obrazovky]
SCREEN mode% [,[colorswitch%] [,[activepage%] [,visualpage%]]]
[CIRCLE | nakresli kruh nebo elipsu na obrazovku]
CIRCLE [STEP] (x!,y!),radius![,[color%] [,[start!] [,[end!] [,aspect!]]]]
[LINE | nakresli Φßru nebo pravo·helnφk na obrazovku]
LINE [[STEP](x1!,y1!)]-[STEP](x2!,y2!) [,[color%] [,[B | BF] [,style%]]]
[DRAW | nakresli objekt]
DRAW commandstring$
[DRAW | nakresli objekt]
DRAW commandstring$
[VIEW | nakresli obdΘlnφk (definuj velikost v²stupu)]
VIEW [[SCREEN] (x1!,y1!)-(x2!,y2!) [,[color%] [,border%]]]
[CLS | vyma₧ obrazovku (CLear the Screen)]
CLS 0 nebo 1 nebo 2 nebo nic
[POINT | vracφ barvu pixelu]
POINT {(n%) | (x%,y%)}
[CLEAR | zav°i soubory, vyma₧ prom∞nnΘ, apod.]
CLEAR [,,stack&]
[ERASE | p°einicializuje pole]
ERASE arrayname [,arrayname]...
[CSRLIN | vracφ pozici (°ßdek) kurzoru]
CSRLIN
[POS | vracφ pozici (sloupec) kurzoru]
POS(expression)
[END | ukonΦuje program, proceduru, blok apod.]
END
[STOP | pozastavuje program]
STOP
[SYSTEM | uzavφrß vÜechny otev°enΘ soubory a vracφ °φzenφ OS]
SYSTEM
[PRINT | napφÜe data na obrazovku nebo do souboru]
PRINT [#filenumber%,] [expressionlist] [{; | ,}]
[LPRINT | vytiskne data p°es tiskßrnu na LPT1]
LPRINT [expressionlist] [{; | ,}]
[RETURN | vracφ se zp∞t ze subrutiny]
LPRINT [expressionlist] [{; | ,}]
[HEX$ | vracφ hexadecimßlnφ Φφselnou prom∞nnou]
HEX$(numeric-expression&)
[OCT$ | vracφ osmiΦkovou Φφselnou prom∞nnou]
OCT$(numeric-expression&)
[WHILE..WEND | cyklus s podmφnkou na zaΦßtku]
WHILE condition
.
.
.
WEND
[FOR..NEXT | cyklus s koneΦn²m poΦtem pr∙chod∙ (FOR-cyklus)]
FOR counter = start TO end [STEP increment]
[statementblock]
NEXT [counter [,counter]...]
[DO..LOOP | cyklus s neurΦit²m poΦtem pr∙chod∙]
DO
[statementblock]
LOOP [{WHILE | UNTIL} condition]
[EXIT | opuÜt∞nφ cykl∙ a funkcφ]
EXIT {DEF nebo DO nebo FOR nebo FUNCTION nebo SUB}
[RANDOMIZE | inicializuje generßtor nßhodn²ch Φφsel]
RANDOMIZE [seed%]
[RND | vracφ nßhodn∞ generovanΘ Φφslo]
RND[(n#)]
[LEN | vracφ dΘlku °et∞zce]
LEN(stringexpression$)
[REM | komentß°]
REM |
[RESET | uzav°e vÜechny otev°enΘ soubory a za°φzenφ]
RESET
[SLEEP | "uspφ program"]
SLEEP [seconds&]
[KILL | vyma₧e soubor z disku]
KILL filespec$
[FILEATTR | vracφ informace o otev°enΘm souboru]
FILEATTR(filenumber%,attribute%)
[OPEN | otev°e soubor nebo za°φzenφ]
OPEN file$ [FOR mode] [ACCESS access] [lock] AS [#]filenumber% [LEN=reclen%]
[CLOSE | uzav°e 1 nebo vφce soubor∙ Φi za°φzenφ]
CLOSE [[#]filenumber%[,[#]filenumber%]...]
[LOG | p°irozen² logaritmus Φφsla]
LOG(numeric-expression)
[LCASE$ | p°evede °et∞zec na malß pφsmena]
LCASE$(stringexpression$)
[UCASE$ | p°evede °et∞zec na velkß pφsmena]
UCASE$(stringexpression$)